Especial Multimedia/Especial Multimedia.iso/Multimed/Musica/ZMUD32.ZIP/ZMUD.EXE/0/RCDATA/TDEFTRIGGER/TDEFTRIGGER.txt

Text File | 1997-06-09 | 36KB | 1,145 lines

object DefTrigger: TDefTrigger
  Left = 127
  Top = 252
  HelpContext = 104
  BorderStyle = bsDialog
  Caption = 'Triggers'
  ClientHeight = 353
  ClientWidth = 597
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 32
    Width = 92
    Height = 13
    Caption = 'Stored Triggers:'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 48
    Width = 150
    Height = 13
    Caption = 'Click on a trigger below to edit it'
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 8
    Top = 62
    Width = 111
    Height = 13
    Caption = 'Double-click to toggle it'
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object TrigGrid: TDrawGrid
    Left = 8
    Top = 80
    Width = 186
    Height = 211
    ColCount = 3
    DefaultRowHeight = 15
    DefaultDrawing = False
    FixedCols = 0
    RowCount = 20
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goRowSelect, goThumbTracking]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    OnClick = TrigGridClick
    OnDblClick = TrigGridDblClick
    OnDrawCell = TrigGridDrawCell
    OnMouseDown = TrigGridMouseDown
    ColWidths = (
      14
      58
      165)
  end
  object TrigList: TListBox
    Left = 0
    Top = 144
    Width = 201
    Height = 97
    ItemHeight = 13
    Sorted = True
    TabOrder = 1
    Visible = False
  end
  object NewBtn: TBitBtn
    Left = 8
    Top = 300
    Width = 76
    Height = 27
    Hint = '|Create a new trigger'
    Caption = '&New'
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = NewBtnClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 597
    Height = 22
    Align = alTop
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 3
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 42
      Height = 20
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object TopBtn: TSpeedButton
        Left = 0
        Top = 0
        Width = 20
        Height = 20
        Hint = 'Keep on top|Forces this dialog to display on top of others'
        AllowAllUp = True
        GroupIndex = 1
        NumGlyphs = 2
        OnClick = TopBtnClick
      end
      object LoadBtn: TSpeedButton
        Left = 20
        Top = 0
        Width = 20
        Height = 20
        Hint =
          'Update for active MUD|Loads triggers for current character windo' +
          'w'
        NumGlyphs = 2
        OnClick = LoadBtnClick
      end
    end
    object Panel4: TPanel
      Left = 43
      Top = 1
      Width = 553
      Height = 20
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object BtnPanel5: TBtnPanel
        Left = 0
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Aliases'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = AliasBtnClick
      end
      object VarBtn: TBtnPanel
        Left = 64
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Variables'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = VarBtnClick
      end
      object MacroBtn: TBtnPanel
        Left = 128
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Macros'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = MacroBtnClick
      end
      object ButBtn: TBtnPanel
        Left = 192
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Buttons'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = ButBtnClick
      end
      object TrigBtn: TBtnPanel
        Left = 256
        Top = 0
        Width = 64
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Triggers'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = TrigBtnClick
      end
      object WalkBtn: TBtnPanel
        Left = 320
        Top = 0
        Width = 88
        Height = 20
        BorderColor = clHighlight
        Align = alLeft
        BorderWidth = 1
        Caption = 'Speedwalking'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = WalkBtnClick
      end
    end
  end
  object CopyBtn: TBitBtn
    Left = 88
    Top = 300
    Width = 76
    Height = 27
    Hint = '|Make a copy of the selected trigger'
    Caption = '&Copy'
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = CopyBtnClick
    Glyph.Data = {
      56070000424D5607000000000000360400002800000028000000140000000100
      0800000000002003000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
      A600000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
      03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
      0303030303030303030000000000000000000003030303030303030303F8F8F8
      F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
      0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
      FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
      0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
      03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
      FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
      F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
      FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
      FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
      0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
      0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
      F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
      0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
      FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
      0303030300FF070707070707FF0003030303030303030303F8FF030303030303
      03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
      F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
      0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
      FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
      030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
      0303030303030303030303030303030303030303030303030303030303030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303030303030303030303030303030303030303030303030303}
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object DelBtn: TBitBtn
    Left = 168
    Top = 300
    Width = 27
    Height = 27
    Hint = 'Delete trigger'
    TabOrder = 5
    OnClick = DelBtnClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object TrigTab: TTabbedNotebook
    Left = 200
    Top = 24
    Width = 393
    Height = 268
    TabsPerRow = 6
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 6
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Trigger'
      object Image1: TImage
        Left = 32
        Top = 8
        Width = 32
        Height = 32
        AutoSize = True
      end
      object Label3: TLabel
        Left = 37
        Top = 80
        Width = 28
        Height = 13
        Alignment = taRightJustify
        Caption = 'Class:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object PatLabel: TLabel
        Left = 28
        Top = 106
        Width = 37
        Height = 13
        Alignment = taRightJustify
        Caption = 'Pattern:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 15
        Top = 130
        Width = 50
        Height = 13
        Alignment = taRightJustify
        Caption = 'Command:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 72
        Top = 128
        Width = 20
        Height = 20
        Hint = 'Edit command|'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF7733333033000000033333373377777773330000}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object LedOff: TImage
        Left = 32
        Top = 157
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image000.ico>}
        Visible = False
      end
      object LedOn: TImage
        Left = 32
        Top = 157
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image001.ico>}
        Visible = False
      end
      object EnableBut: TSpeedButton
        Left = 72
        Top = 152
        Width = 89
        Height = 27
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Disabled'
        Font.Color = clBtnText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = EnableButClick
      end
      object Inh: TLabel
        Left = 168
        Top = 160
        Width = 188
        Height = 13
        Caption = 'Inherited from parent settings file'
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object Label12: TLabel
        Left = 72
        Top = 8
        Width = 291
        Height = 13
        Caption = 'Triggers execute commands when a line of text from the MUD'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 88
        Top = 23
        Width = 85
        Height = 13
        Caption = 'matches a pattern'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TrigName: TComboBox
        Left = 72
        Top = 76
        Width = 129
        Height = 21
        Hint = '|Name of class to categorize trigger'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        Sorted = True
        TabOrder = 0
        OnChange = TrigNameChange
        OnExit = TrigNameExit
      end
      object EnableClassBtn: TButton
        Left = 208
        Top = 75
        Width = 81
        Height = 22
        Caption = 'Enable Class'
        Font.Color = clBtnText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        TabStop = False
        OnClick = EnableClassBtnClick
      end
      object DisableClassBtn: TButton
        Left = 296
        Top = 75
        Width = 81
        Height = 22
        Caption = 'Disable Class'
        Font.Color = clBtnText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        TabStop = False
        OnClick = DisableClassBtnClick
      end
      object TrigCom: TEdit
        Left = 96
        Top = 128
        Width = 281
        Height = 21
        Hint = '|Commands to execute when trigger fires'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnChange = TrigComChange
      end
      object TrigPattern: TMyEdit
        Left = 72
        Top = 104
        Width = 305
        Height = 21
        Hint = '|Pattern from MUD to fire the trigger'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnChange = TrigPatternChange
        OnKeyDown = TrigPatternKeyDown
        DoColor = True
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Options'
      object GroupBox1: TGroupBox
        Left = 40
        Top = 16
        Width = 293
        Height = 49
        Caption = 'Trigger Type'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object PatBtn: TRadioButton
          Left = 16
          Top = 20
          Width = 65
          Height = 17
          Hint = '|Normal trigger.  Fires when line matches Pattern'
          Caption = 'Pattern'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = PatBtnClick
        end
        object ExpBtn: TRadioButton
          Left = 104
          Top = 20
          Width = 73
          Height = 17
          Hint = '|Tests Expression after each line and fires if True'
          Caption = 'Expression'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = PatBtnClick
        end
        object AlarmBtn: TRadioButton
          Left = 208
          Top = 20
          Width = 57
          Height = 17
          Hint = '|Fires when Time pattern is reached'
          Caption = 'Alarm'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = PatBtnClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 40
        Top = 72
        Width = 141
        Height = 65
        Caption = 'When Loaded'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Inited: TCheckBox
          Left = 16
          Top = 20
          Width = 61
          Height = 17
          Hint = '|Enable this trigger when first connected'
          Caption = 'Enable'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = InitedClick
        end
        object DisInit: TCheckBox
          Left = 16
          Top = 36
          Width = 57
          Height = 17
          Hint = '|Disable this trigger when first connected'
          Caption = 'Disable'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = InitedClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 192
        Top = 72
        Width = 141
        Height = 65
        Caption = 'Trigger on'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object WaitCR: TCheckBox
          Left = 16
          Top = 20
          Width = 61
          Height = 17
          Hint = '|Check this trigger after CR/LF received'
          Caption = 'Newline'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = WaitCRClick
        end
        object BothCR: TCheckBox
          Left = 16
          Top = 36
          Width = 57
          Height = 17
          Hint = '|Check this trigger when a buffer of text is received'
          Caption = 'Prompt'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = WaitCRClick
        end
      end
      object GroupBox4: TGroupBox
        Left = 40
        Top = 144
        Width = 293
        Height = 65
        Caption = 'Other options'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object CaseSens: TCheckBox
          Left = 16
          Top = 20
          Width = 93
          Height = 17
          Hint = '|Text must match upper/lower case of pattern exactly'
          Caption = 'Case Sensitive'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = WaitCRClick
        end
        object IsColor: TCheckBox
          Left = 16
          Top = 36
          Width = 93
          Height = 17
          Hint = '|Pattern contains color codes that must match line from MUD'
          Caption = 'Color Trigger'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = IsColorClick
        end
        object Verbatim: TCheckBox
          Left = 168
          Top = 20
          Width = 93
          Height = 17
          Hint = '|Match pattern exactly.  Pattern is not parsed.'
          Caption = 'Verbatim'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = WaitCRClick
        end
        object TrigTrig: TCheckBox
          Left = 168
          Top = 36
          Width = 121
          Height = 17
          Hint = '|Trigger processing is enabled for the results of this trigger'
          Caption = 'Trigger on Trigger'
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = WaitCRClick
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Testing'
      object Label6: TLabel
        Left = 56
        Top = 36
        Width = 241
        Height = 13
        Caption = 'Enter sample text to test trigger:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LockPat: TSpeedButton
        Left = 32
        Top = 56
        Width = 20
        Height = 20
        Hint = 'Lock Sample pattern computation|'
        AllowAllUp = True
        GroupIndex = 2
        Glyph.Data = {
          90020000424D9002000000000000760000002800000040000000100000000100
          0400000000000002000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
          333333333F888883FF3333333F888883FF333333330000033333333300777770
          0333333388333F3883F3333388333F3883F33333007777700333333088780878
          8033333833338F33383F333833338F33383F3330887808788033330777780877
          7703338F33338F33338F338F33338F33338F3307777808777703330888770778
          8803338F33338FF3338F338F33338FF3338F3308887707788803330777700077
          7703338F333888F3338F338F333888F3338F3307777000777703330888800088
          8803338F33388833338F338F33388833338F3308888000888803B30777777777
          77033383FFFFFFFFFF833383FFFFFFFFFF8333077777777777033B3000000000
          003333388888888888333338888888888833333000000000003333BBBB333307
          0333333333F3338F8F3333338F8F338F8F333333070333070333BBBB808BB307
          03333333383F338F8F3333338F8F338F8F33333307033307033333BB07033307
          033333338F8F338F8F3333338F83FF838F3333330703330703333B3B07033307
          033333338F83FF838F33333383F8883383333333887000788333B33B88700078
          8333333383F8883383333333383FFFF833333333307777703333333B30777770
          33333333383FFFF8333333333388888333333333330000033333333B33000003
          3333333333888883333333333333333333333333333333333333000000000000
          0000000000000000000000000000000000000000}
        NumGlyphs = 4
      end
      object MatchText: TLabel
        Left = 168
        Top = 100
        Width = 188
        Height = 13
        Caption = 'Matching portion of is highlighted above'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object MatchNo: TLabel
        Left = 176
        Top = 92
        Width = 133
        Height = 13
        Caption = 'Pattern does not match'
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object MatchYes: TLabel
        Left = 168
        Top = 84
        Width = 126
        Height = 13
        Caption = 'PATTERN MATCHES!'
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object Label11: TLabel
        Left = 12
        Top = 10
        Width = 37
        Height = 13
        Alignment = taRightJustify
        Caption = 'Pattern:'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TestPat: TEdit
        Left = 56
        Top = 56
        Width = 321
        Height = 21
        Hint = '|Sample text from MUD to test trigger'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object BitBtn1: TBitBtn
        Left = 56
        Top = 84
        Width = 105
        Height = 29
        Caption = '&Test Trigger'
        Default = True
        Font.Color = clBtnText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn1Click
        Glyph.Data = {
          CE070000424DCE07000000000000360000002800000024000000120000000100
          1800000000009807000000000000000000000000000000000000007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F7F7F007F7F00007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F007F00
          007F00007F7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7FFFFFFF007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7FFFFF007F7F007F7F007F0000007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF
          007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFF007F7F007F7F0000
          7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7F007F7F7F7F7FFFFFFFFFFFFF7F7F7FFFFFFF007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F7F00007F00007F7F00007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
          7F007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F007F7F007F7F00
          7F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7FFFFFFF007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7FFFFF007F7F007F7F007F0000007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F7F
          7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7FFFFF007F7F007F7F007F7F007F0000007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F7F7F7FFFFFFF007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFF
          007F7F007F7F007F7F007F0000007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F7FFFFFFF
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7FFFFF007F7F007F7F007F7F007F0000007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F
          FFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F7F00007F0000007F7F007F7F007F7FFFFF007F
          7F007F7F007F7F007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7FFFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F7FFFFFFF007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F007F7F007F7F007F
          0000007F7F007F7F007F7FFFFF007F7F007F7F007F0000007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F7F7F7F7F7F7FFFFFFF007F7F007F7F7F7F7FFFFF
          FF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7FFFFF007F7F007F7F007F7F007F00007F00007F00007F7F007F7F007F7F00
          7F0000007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F7F7F
          7FFFFFFFFFFFFFFFFFFF7F7F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7FFFFF007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F00007F7F007F7F007F7F007F7F007F7F007F
          7F7F7F7FFFFFFF007F7F007F7F7F7F7F7F7F7F7F7F7F007F7F007F7F007F7F7F
          7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
          FFFF00FFFF007F7F007F7F007F7F007F7F007F7F007F7F00007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFFFFFFFF007F7F007F7F00
          7F7F007F7F007F7F007F7F7F7F7F007F7F007F7F007F7F007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7FFFFF00FFFF00FFFF00FFFF00FFFF
          00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F
          7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F007F7F007F7F007F7F
          007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
          7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
          7F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          007F7F007F7F007F7F007F7F007F7F007F7F}
        Margin = 2
        NumGlyphs = 2
        Spacing = -1
        IsControl = True
      end
      object P1: TListBox
        Left = 56
        Top = 120
        Width = 321
        Height = 113
        Hint = '|Contents of the parameter variables for the sample text'
        TabStop = False
        ExtendedSelect = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 2
        Visible = False
      end
      object TrigPat2: TMyEdit
        Left = 56
        Top = 8
        Width = 321
        Height = 21
        Hint = '|Pattern from MUD to fire the trigger'
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnChange = TrigPat2Change
        DoColor = True
      end
    end
  end
  object OKBtn: TBitBtn
    Left = 304
    Top = 300
    Width = 92
    Height = 27
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = OKBtnClick
    Kind = bkOK
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 403
    Top = 300
    Width = 92
    Height = 27
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = CancelBtnClick
    Kind = bkCancel
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 502
    Top = 300
    Width = 92
    Height = 27
    HelpContext = 104
    Caption = 'Help'
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Kind = bkHelp
    Spacing = -1
    IsControl = True
  end
  object HelpPanel: TPanel
    Left = 0
    Top = 333
    Width = 597
    Height = 20
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 40
    object Enable1: TMenuItem
      Caption = 'Enable'
      ShortCut = 0
      OnClick = Enable1Click
    end
    object EnableClass1: TMenuItem
      Caption = 'Enable Class'
      ShortCut = 0
      OnClick = EnableClassBtnClick
    end
    object DisableClass1: TMenuItem
      Caption = 'Disable Class'
      ShortCut = 0
      OnClick = DisableClassBtnClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object New1: TMenuItem
      Caption = 'New'
      ShortCut = 0
      OnClick = NewBtnClick
    end
    object Copy1: TMenuItem
      Caption = 'Copy'
      ShortCut = 0
      OnClick = CopyBtnClick
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
      ShortCut = 0
      OnClick = DelBtnClick
    end
  end
end